home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO108.dsk / PROGRAMS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  38 lines
  1. 0  REM PRODOS VER 3 FAMILY ROOTS: /FR/ PROGRAMS PROGRAM. COPYRIGHT (C) 1987, STEPHEN C. VORENBERG
  2. 50  GOSUB 850: PRINT  CHR$(4)"PR#"Q(43)
  3. 70  READ LA: FOR I = 1 TO LA: READ C$(I): READ EM$(I): READ OP(I): NEXT :LB = 0: READ OP: FOR I = 1 TO OP: READ OP$(I): NEXT 
  4. 100  GOSUB 850: PRINT : PRINT "CHOOSE WHICH PROGRAM TO RUN, BY LETTER:"
  5. 105  PRINT 
  6. 110 J = Q(2) -3: FOR I = 1 TO LA: PRINT  CHR$(64 +I)") "C$(I) SPC( 11 - LEN(C$(I)))EM$(I): IF  INT(I/J) *J = I  THEN  PRINT "PRESS ANY KEY TO CONTINUE";: GOSUB 690
  7. 115  NEXT : PRINT 
  8. 120  INVERSE : PRINT "WHICH (A-" CHR$(64 +LA)")?";: GOSUB 690:C =  ASC(YN$) -64: IF YN$ = CZ$  THEN 100
  9. 122  IF YN$ < > CHR$(13)  THEN 130
  10. 125 LB = LB +1: IF LB >10  THEN 350
  11. 127  GOTO 120
  12. 130  IF C <1  OR LA <C  THEN 120
  13. 131  IF OP(C) <1  THEN 350
  14. 133  GOSUB 7100: PRINT "LOADING '"C$(C)"'"
  15. 150 X3 = LD:X1 = LD:X2 = WH(X1,1)
  16. 180  ONERR  GOTO 300
  17. 190  PRINT  CHR$(4)"PREFIX,S"ME(X2,2)",D"ME(X2,3): PRINT  CHR$(4)"PREFIX": INPUT PF$:A$ = ME$(X2): IF  LEFT$(A$, LEN(PF$)) = PF$  THEN PF$ = A$: PRINT  CHR$(4)"PREFIX"PF$
  18. 200  PRINT  CHR$(4)"RUN"C$(C)
  19. 300  POKE 216,0: GOSUB 3000: IF X1 < >X3  THEN X2 = WH(X1,1): GOTO 180
  20. 310 LD = X3:X1 = X3:X2 = WH(X1,1): PRINT : PRINT "PLEASE PLACE DISK "OP$(OP(C))" INTO DRIVE "X2". ";: GOSUB 860: PRINT "PRESS ANY KEY WHEN READY";: GOSUB 690: IF YN$ = CZ$  THEN 20000
  21. 320  GOTO 180
  22. 350  GOSUB 850: PRINT "BYE..": END 
  23. 500 Y =  PEEK(X) +256 * PEEK(X +1):Z =  PEEK(X +2) +256 * PEEK(X +3): RETURN 
  24. 690  GET YN$: POKE  -16368,0: NORMAL : PRINT YN$: IF  ASC(YN$) >95  THEN YN$ =  CHR$( ASC(YN$) -32)
  25. 691  RETURN 
  26. 850  PRINT : IF Q(43) = 0  OR Q(40)  THEN  HOME : RETURN 
  27. 855  PRINT  CHR$(12): RETURN 
  28. 860  IF Q(22) <79  THEN  PRINT : RETURN 
  29. 861  PRINT " ";: RETURN 
  30. 3000 FL = 0:I = X1
  31. 3020 I = I +1: IF I >MP  THEN I = 1
  32. 3030  IF I = X1  THEN  RETURN 
  33. 3040  IF WH(I,0) =  -3  THEN X1 = I:LD = I: RETURN 
  34. 3050  GOTO 3020
  35. 7100  GOSUB 850: FOR I = 1 TO 7: PRINT : NEXT : INVERSE : PRINT "PLEASE WAIT";: NORMAL : PRINT "...": PRINT : PRINT  SPC( 14);: RETURN 
  36. 10015  DATA 5,EDIT,(DATA ENTRY),1,LISTS,(NAME INDICES),1,STANDARDS,(STANDARD CHARTS),1,HELP,(INTRODUCTION AND HINTS),1,EXIT,,0
  37. 10080  DATA 1,/FR.TRIAL
  38. 20000  GOTO 100